      subroutine conplt(array,title,iclr,iscl,imk,iplt,
     &                  symb,ixmin,ixmax,iplot,ymin,ymax)
c
c produces line plot of array
c
      parameter ( nxran = 60 )
      parameter ( nyran = 20 )
      dimension array(nxran)
      character*1 line(nxran),symb
      character*70 iplot(nyran),title
      data line / nxran*'-'/
c------------------------------------------------------
      if (iclr.eq.1) then
c
c clear plot
c
          ymin = 1.e10
          ymax = 0.0
          do 9000 i = 1,nyran
             iplot(i) = ' '
9000      continue
      endif

      if (iscl.eq.1) then
c
c scale plot
c find max, min of data
c
          do 9001 i = 1,nxran
             if (array(i).gt.0.0) then
                 ymin = min(ymin,array(i))
                 ymax = max(ymax,array(i))
             endif
9001      continue
c
c find y plot range in log scale
c

          yminl = alog10(ymin)
          ymaxl = alog10(ymax)
          iyup = (1. + ymaxl)
          iylw = (yminl - 1)
          iyran = iyup - iylw
      endif

      if (imk.eq.1) then
c
c make plot
c
c
c stick x values in the appropriate bins after clipping
c
          yminl = alog10(ymin)
          ymaxl = alog10(ymax)
          iyup = (1. + ymaxl)
          iylw = (yminl - 1)
          iyran = iyup - iylw
          do 9002 i = 1,nxran
             if ((array(i).ge.ymin).and.(array(i).le.ymax)) then
                  temp = alog10(array(i))
                  temp1 = (temp - iylw)/iyran
                  ibin = temp1*(nyran - 1) + 1
                  iplot(ibin)(i:i)= symb
             endif
9002      continue
      endif

      if (iplt.eq.1) then
c
c draw out plot
c
          write(6,*)'  '
          write(6,204) title
204       format(5X,A70)
          write(6,200)ymax,line
200       format(' ',g9.2,' |-',60A,'-|')
          do 9003 i = nyran,1,-1
             write(6,201)iplot(i)
201          format(11X,'| ',A60,' |')
9003      continue
          write(6,200)ymin,line
          write(6,203)
203       format(11X,'|',62X,'|')
          write(6,202)ixmin,ixmax
202       format(6X,I5,58X,I5)
      endif
      return
      end
